home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PINBSRC.ZIP / PLANES / BMP2VGA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-02  |  786 b   |  42 lines
  1. { BMP 2 VGA }
  2. uses dos,crt;
  3.     {$M $8000,0,0 }   { 16K stack, no heap }
  4. const header:array[1..6] of byte = ($3f, $01, $c7, $00, $00, $00);
  5. var f1,f2:file of byte;
  6.     z:longint;
  7.     b:byte;
  8.  
  9. procedure los(n1,n2:string);
  10. var size:longint;
  11. begin
  12.   assign(f1,n1);
  13.   assign(f2,n2);
  14.   reset(f1);
  15.   rewrite(f2);
  16.   for b:=1 to 6 do write(f2,header[b]);
  17.   size:=filesize(f1);
  18.   z:=size-1;
  19.   repeat
  20.     gotoxy(1,1);
  21.     write(size-z);
  22.     seek(f1,z);
  23.     read(f1,b);
  24.     write(f2,b);
  25.     dec(z);
  26.   until z=1077;
  27.   close(f1);
  28.   close(f2);
  29. end;
  30.  
  31. begin
  32.   clrscr;
  33.   {Konvertiere die einzelnen BMP's}
  34.   los('arm1.bmp','arm1.vga');
  35.   los('arm2.bmp','arm2.vga');
  36.   los('arm3.bmp','arm3.vga');
  37.   los('arm4.bmp','arm4.vga');
  38.   los('arm5.bmp','arm5.vga');
  39.  
  40. end.
  41.  
  42.